/* GUI CONVERTED from ecpmform.i (converter v1.76) Thu Sep  5 10:33:53 2002 */
/* ecpmform.i  -  ECN CONTROL PARAMETER FORM                                  */
/* Copyright 1986-2002 QAD Inc., Carpinteria, CA, USA.                        */
/* All rights reserved worldwide.  This is an unpublished work.               */
/* $Revision: 1.9.1.7 $                                                       */
/*V8:ConvertMode=Maintenance                                                  */
/* REVISION: 7.4     LAST MODIFIED: 06/29/93    BY: pma *H013*                */
/* REVISION: 7.4     LAST MODIFIED: 04/19/95    BY: jpm *H0CJ*                */
/* REVISION: 8.6     LAST MODIFIED: 10/14/96    BY: Joe Gawel *K00C*          */
/* REVISION: 8.6     LAST MODIFIED: 05/08/97    BY: Verghese Kurien *J1R0*    */
/* REVISION: 8.6     LAST MODIFIED: 08/17/97    BY: Jean Miller *K0HH*        */
/* REVISION: 8.6E    LAST MODIFIED: 02/23/98    BY: *L007* A. Rahane          */
/* REVISION: 8.6E    LAST MODIFIED: 05/20/98    BY: *K1Q4* Alfred Tan         */
/* REVISION: 8.6E    LAST MODIFIED: 10/04/98    BY: *J314* Alfred Tan         */
/* REVISION: 9.1      LAST MODIFIED: 03/24/00   BY: *N08T* Annasaheb Rahane   */
/* REVISION: 9.1      LAST MODIFIED: 08/14/00   BY: *N0KW* Jacolyn Neder      */
/* REVISION: 9.1      LAST MODIFIED: 08/23/00   BY: *N0MZ* Rajinder Kamra     */
/* Old ECO marker removed, but no ECO header exists *F0PN*                    */
/* Revision: 1.9.1.6    BY: Jean Miller        DATE: 05/07/02  ECO: *P066*    */
/* $Revision: 1.9.1.7 $   BY: Katie Hilbert      DATE: 09/05/02  ECO: *P0HK*  */
/******************************************************************************/
/* All patch markers and commented out code have been removed from the source */
/* code below. For all future modifications to this file, any code which is   */
/* no longer required should be deleted and no in-line patch markers should   */
/* be added.  The ECO marker should only be included in the Revision History. */
/******************************************************************************/

define variable disp-prefix   as character no-undo.
define variable disp-next-pcc as character no-undo format "x(12)".

FORM /*GUI*/ 
   
 RECT-FRAME       AT ROW 1.4 COLUMN 1.25
 RECT-FRAME-LABEL AT ROW 1   COLUMN 3 NO-LABEL
 SKIP(.1)  /*GUI*/
space(4)
   pcc_ctrl.pcc_auto_nbr      colon 30
   pcc_ctrl.pcc_security_on   colon 30
   pcc_ctrl.pcc_quality_ok    colon 60
   pcc_ctrl.pcc_ecooff_date   colon 30
   pcc_ctrl.pcc_routing_ok    colon 60
   pcc_ctrl.pcc_initial_date  colon 30
   pcc_ctrl.pcc_struct_ok     colon 60
   space(1)
 SKIP(.4)  /*GUI*/
with frame ecnpm1 side-labels width 80 attr-space
           NO-BOX THREE-D /*GUI*/.

 DEFINE VARIABLE F-ecnpm1-title AS CHARACTER.
 F-ecnpm1-title = (getFrameTitle("PCC_CONTROL",24)).
 RECT-FRAME-LABEL:SCREEN-VALUE in frame ecnpm1 = F-ecnpm1-title.
 RECT-FRAME-LABEL:WIDTH-PIXELS in frame ecnpm1 =
  FONT-TABLE:GET-TEXT-WIDTH-PIXELS(
  RECT-FRAME-LABEL:SCREEN-VALUE in frame ecnpm1 + " ", RECT-FRAME-LABEL:FONT).
 RECT-FRAME:HEIGHT-PIXELS in frame ecnpm1 =
  FRAME ecnpm1:HEIGHT-PIXELS - RECT-FRAME:Y in frame ecnpm1 - 2.
 RECT-FRAME:WIDTH-CHARS IN FRAME ecnpm1 = FRAME ecnpm1:WIDTH-CHARS - .5. /*GUI*/


/* SET EXTERNAL LABELS */
setFrameLabels(frame ecnpm1:handle).

/* ecnpm2 */
FORM /*GUI*/ 
   
 RECT-FRAME       AT ROW 1 COLUMN 1.25
 RECT-FRAME-LABEL AT ROW 1 COLUMN 3 NO-LABEL VIEW-AS TEXT SIZE-PIXELS 1 BY 1
 SKIP(.1)  /*GUI*/
disp-prefix  at 30 no-label disp-next-pcc  at 40 no-label
   "------"     at 30          "--------"     at 40
   pcc_ctrl.pcc_pco_pre[1]   colon 30
   pcc_ctrl.pcc_next_pco[1]  colon 40
   pcc_ctrl.pcc_pco_pre[2]   colon 30
   pcc_ctrl.pcc_next_pco[2]  colon 40
   pcc_ctrl.pcc_pco_pre[3]   colon 30
   pcc_ctrl.pcc_next_pco[3]  colon 40
   pcc_ctrl.pcc_pco_pre[4]   colon 30
   pcc_ctrl.pcc_next_pco[4]  colon 40
   pcc_ctrl.pcc_pco_pre[5]   colon 30
   pcc_ctrl.pcc_next_pco[5]  colon 40
   pcc_ctrl.pcc_pco_pre[6]   colon 30
   pcc_ctrl.pcc_next_pco[6]  colon 40
   pcc_ctrl.pcc_pco_pre[7]   colon 30
   pcc_ctrl.pcc_next_pco[7]  colon 40
   pcc_ctrl.pcc_pco_pre[8]   colon 30
   pcc_ctrl.pcc_next_pco[8]  colon 40
   pcc_ctrl.pcc_pco_pre[9]   colon 30
   pcc_ctrl.pcc_next_pco[9]  colon 40
   pcc_ctrl.pcc_pco_pre[10]  colon 30
   pcc_ctrl.pcc_next_pco[10] colon 40
   pcc_ctrl.pcc_pco_pre[11]  colon 30
   pcc_ctrl.pcc_next_pco[11] colon 40
   pcc_ctrl.pcc_pco_pre[12]  colon 30
   pcc_ctrl.pcc_next_pco[12] colon 40
 SKIP(.4)  /*GUI*/
with frame ecnpm2 width 80 attr-space no-labels NO-BOX THREE-D /*GUI*/.

 DEFINE VARIABLE F-ecnpm2-title AS CHARACTER INITIAL "".
 RECT-FRAME-LABEL:SCREEN-VALUE in frame ecnpm2 = F-ecnpm2-title.
 RECT-FRAME-LABEL:HIDDEN in frame ecnpm2 = yes.
 RECT-FRAME:HEIGHT-PIXELS in frame ecnpm2 =
  FRAME ecnpm2:HEIGHT-PIXELS - RECT-FRAME:Y in frame ecnpm2 - 2.
 RECT-FRAME:WIDTH-CHARS IN FRAME ecnpm2 = FRAME ecnpm2:WIDTH-CHARS - .5.  /*GUI*/


assign
   disp-prefix:screen-value in frame ecnpm2   = getTermLabel("PREFIX",8)
   disp-next-pcc:screen-value in frame ecnpm2 = getTermLabel("NEXT_PCC",12).
